100 REM   *********************************************************
110 REM   ***                 THREE CARD POKER                  ***
120 REM   ***                        BY                         ***
130 REM   ***                    SWITCH1995                     ***
140 REM   *********************************************************
150 CALL CLEAR :: CALL SCREEN(16) :: CALL MAGNIFY(3) :: ON BREAK NEXT :: ON WARNING NEXT :: OPTION BASE 1
160 DIM C(13,4),PN(3),PS(3),PR(3),DN(3),DS(3),DR(3)
170 BANKROLL,PAIRPLUS,ANTE,PLAY,HOLD,PRANK,DRANK,PAIRPLUSPAY,ANTEPAY,PLAYPAY,TOTALPAY,STRFLUSH,THREEKIND,STRAIGHT,FLUSH,PAIR,BRACKET=0
180 FOR I=1 TO 9 :: CALL COLOR(I,2,16) :: NEXT I :: CALL COLOR(10,9,16) :: CALL COLOR(11,2,16) :: CALL COLOR(12,4,3) :: CALL COLOR(13,5,16) :: CALL COLOR(14,2,3)
190 CALL CHAR(96,"010103070F1F3F7FFFFF7F3F1D010307000080C0E0F0F8FCFEFEFCF8700080C0",100,"03070F0F377BFFFFFF7B3303070F1F0080C0E0E0D8BCFEFEFEBC9880C0E0F000")
200 CALL CHAR(104,"00183C7EFFFFFFFFFF7F3F1F0F070301003078FCFEFEFEFEFEFCF8F0E0C08000",108,"0103070F1F3F7FFF7F3F1F0F070301000080C0E0F0F8FCFEFCF8F0E0C0800000")
210 CALL CHAR(112,"3F7FC0C0C0C0C0C0FFFF000000000000FCFE030303030303C0C0C0C0C0C0C0C0",116,"0303030303030303C0C0C0C0C0C07F3F000000000000FFFF030303030303FEFC")
220 CALL CHAR(95,"",120,"42A55A24245AA542FFFFFFFFFFFFFFFF7FBFDFEFF7FBFDFEFEFDFBF7EFDFBF7F")
230 CALL CHAR(128,"AA55AA55AA55AA55")
240 CALL CHAR(136,"0078242424242478007C40407840407C003844447C444444004040404040407C",140,"007844447850484400784444784040400044442810101010")
250 CALL TITLE
260 CALL KEY(3,K,S) :: IF S<>1 THEN 260
270 CALL CLEAR
280 CALL MENU(BANKROLL,PAIRPLUS,ANTE,PLAY)
290 CALL DELSPRITE(ALL) :: CALL CLEAR
300 CALL DRAW
310 FOR N=1 TO 13 :: FOR S=1 TO 4 :: C(N,S)=0 :: NEXT S :: NEXT N
320 CALL DELSPRITE(ALL)
330 R=12 :: FOR I=1 TO 3 :: FOR J=8+(I-1)*7 TO 11+(I-1)*7 :: CALL VCHAR(R,J,95,6) :: NEXT J
340 CALL HCHAR(R-1,J-5,112) :: CALL HCHAR(R-1,J-4,113,4) :: CALL HCHAR(R-1,J,114) :: CALL VCHAR(R,J-5,115,6)
350 CALL VCHAR(R,J,116,6) :: CALL HCHAR(R+6,J-5,117) :: CALL HCHAR(R+6,J-4,118,4) :: CALL HCHAR(R+6,J,119)
360 RANDOMIZE
370 N=INT(13*RND)+1 :: S=INT(4*RND)+1 :: IF C(N,S)=1 THEN 370
380 IF N<>10 THEN 390 :: CALL HCHAR(R,J-5,49) :: CALL HCHAR(R+5,J-1,49) :: CALL HCHAR(R,J-4,48) :: CALL HCHAR(R+5,J,48) :: GOTO 440
390 IF N<>11 THEN 400 :: CALL HCHAR(R,J-4,74) :: CALL HCHAR(R+5,J-1,74) :: GOTO 440
400 IF N<>12 THEN 410 :: CALL HCHAR(R,J-4,81) :: CALL HCHAR(R+5,J-1,81) :: GOTO 440
410 IF N<>13 THEN 420 :: CALL HCHAR(R,J-4,75) :: CALL HCHAR(R+5,J-1,75) :: GOTO 440
420 IF N<>1 THEN 430 :: CALL HCHAR(R,J-4,65) :: CALL HCHAR(R+5,J-1,65) :: GOTO 440
430 CALL HCHAR(R,J-4,N+48) :: CALL HCHAR(R+5,J-1,N+48)
440 IF S<=2 THEN 450 ELSE 460
450 CALL SPRITE(#R+I,92+(S*4),2,((R+2)*8)-7,((J-3)*8)-7) :: GOTO 470
460 CALL SPRITE(#R+I,92+(S*4),9,((R+2)*8)-7,((J-3)*8)-7)
470 C(N,S)=1 :: PN(I)=N :: PS(I)=S :: NEXT I
480 FOR I=1 TO 3 :: FOR J=7+(I-1)*7 TO 12+(I-1)*7 :: CALL VCHAR(1,J,128,8) :: NEXT J :: NEXT I
490 DISPLAY AT(21,1):"BANKROLL:" :: DISPLAY AT(21,12):BANKROLL
500 DISPLAY AT(22,1):"PP BET:" :: DISPLAY AT(22,9):PAIRPLUS
510 DISPLAY AT(22,14):"ANTE BET:" :: DISPLAY AT(22,24):ANTE
520 DISPLAY AT(23,1):"(P)LAY OR (F)OLD?"
530 CALL KEY(3,K,S) :: IF S<>1 THEN 530 :: IF K=70 THEN 540 ELSE IF K=80 THEN 570 ELSE 530
540 BANKROLL=BANKROLL-PAIRPLUS-ANTE
550 DISPLAY AT(21,1)SIZE(9):"BANKROLL:" :: DISPLAY AT(21,12):BANKROLL
560 DISPLAY AT(22,1)SIZE(12):"PP BET:LOSE " :: DISPLAY AT(22,14)SIZE(14):"ANTE BET:LOSE " :: GOTO 2660
570 R=2 :: BANKROLL=BANKROLL-PAIRPLUS-ANTE-PLAY :: FOR I=1 TO 3 :: FOR J=8+(I-1)*7 TO 11+(I-1)*7 :: CALL VCHAR(R,J,95,6) :: NEXT J
580 CALL HCHAR(R-1,J-5,112) :: CALL HCHAR(R-1,J-4,113,4) :: CALL HCHAR(R-1,J,114) :: CALL VCHAR(R,J-5,115,6)
590 CALL VCHAR(R,J,116,6) :: CALL HCHAR(R+6,J-5,117) :: CALL HCHAR(R+6,J-4,118,4) :: CALL HCHAR(R+6,J,119)
600 RANDOMIZE
610 N=INT(13*RND)+1 :: S=INT(4*RND)+1 :: IF C(N,S)=1 THEN 610
620 IF N<>10 THEN 630 :: CALL HCHAR(R,J-5,49) :: CALL HCHAR(R+5,J-1,49) :: CALL HCHAR(R,J-4,48) :: CALL HCHAR(R+5,J,48) :: GOTO 680
630 IF N<>11 THEN 640 :: CALL HCHAR(R,J-4,74) :: CALL HCHAR(R+5,J-1,74) :: GOTO 680
640 IF N<>12 THEN 650 :: CALL HCHAR(R,J-4,81) :: CALL HCHAR(R+5,J-1,81) :: GOTO 680
650 IF N<>13 THEN 660 :: CALL HCHAR(R,J-4,75) :: CALL HCHAR(R+5,J-1,75) :: GOTO 680
660 IF N<>1 THEN 670 :: CALL HCHAR(R,J-4,65) :: CALL HCHAR(R+5,J-1,65) :: GOTO 680
670 CALL HCHAR(R,J-4,N+48) :: CALL HCHAR(R+5,J-1,N+48)
680 IF S<=2 THEN 690 ELSE 700
690 CALL SPRITE(#R+I,92+(S*4),2,((R+2)*8)-7,((J-3)*8)-7) :: GOTO 710
700 CALL SPRITE(#R+I,92+(S*4),9,((R+2)*8)-7,((J-3)*8)-7)
710 C(N,S)=1 :: DN(I)=N :: DS(I)=S :: NEXT I
720 IF PN(1)<=PN(2)THEN 740
730 HOLD=PN(2) :: PN(2)=PN(1) :: PN(1)=HOLD
740 IF PN(2)<=PN(3)THEN 760
750 HOLD=PN(3) :: PN(3)=PN(2) :: PN(2)=HOLD
760 IF PN(1)<=PN(2)THEN 780
770 HOLD=PN(2) :: PN(2)=PN(1) :: PN(1)=HOLD
780 IF PN(2)<=PN(3)THEN 800
790 HOLD=PN(3) :: PN(3)=PN(2) :: PN(2)=HOLD
800 IF DN(1)<=DN(2)THEN 820
810 HOLD=DN(2) :: DN(2)=DN(1) :: DN(1)=HOLD
820 IF DN(2)<=DN(3)THEN 840
830 HOLD=DN(3) :: DN(3)=DN(2) :: DN(2)=HOLD
840 IF DN(1)<=DN(2)THEN 860
850 HOLD=DN(2) :: DN(2)=DN(1) :: DN(1)=HOLD
860 IF DN(2)<=DN(3)THEN 880
870 HOLD=DN(3) :: DN(3)=DN(2) :: DN(2)=HOLD
880 STRFLUSH,THREEKIND,STRAIGHT,FLUSH,PAIR,BRACKET=0
890 IF PN(1)=PN(2)THEN 900 ELSE 920
900 IF PN(2)=PN(3)THEN 910 ELSE 920
910 THREEKIND=1
920 IF PS(1)=PS(2)THEN 930 ELSE 950
930 IF PS(2)=PS(3)THEN 940 ELSE 950
940 FLUSH=1
950 IF PN(3)-PN(2)=1 THEN 960 ELSE 980
960 IF PN(2)-PN(1)=1 THEN 970 ELSE 980
970 STRAIGHT=1
980 IF PN(3)=13 THEN 990 ELSE 1020
990 IF PN(2)=12 THEN 1000 ELSE 1020
1000 IF PN(1)=1 THEN 1010 ELSE 1020
1010 STRAIGHT=1
1020 IF PN(1)=PN(2)THEN 1040 ELSE 1030
1030 IF PN(2)=PN(3)THEN 1040 ELSE 1050
1040 PAIR=1
1050 IF FLUSH=1 AND STRAIGHT=1 THEN 1060 ELSE 1070
1060 STRFLUSH=1
1070 IF STRFLUSH=1 THEN 1080 ELSE 1090
1080 BRACKET=150000 :: GOTO 1170
1090 IF THREEKIND=1 THEN 1100 ELSE 1110
1100 BRACKET=120000 :: GOTO 1170
1110 IF STRAIGHT=1 THEN 1120 ELSE 1130
1120 BRACKET=90000 :: GOTO 1170
1130 IF FLUSH=1 THEN 1140 ELSE 1150
1140 BRACKET=60000 :: GOTO 1170
1150 IF PAIR=1 THEN 1160 ELSE 1170
1160 BRACKET=30000
1170 FOR I=1 TO 3
1180 IF PN(I)=2 THEN 1190 ELSE 1200
1190 PR(I)=2 :: GOTO 1440
1200 IF PN(I)=3 THEN 1210 ELSE 1220
1210 PR(I)=4 :: GOTO 1440
1220 IF PN(I)=4 THEN 1230 ELSE 1240
1230 PR(I)=8 :: GOTO 1440
1240 IF PN(I)=5 THEN 1250 ELSE 1260
1250 PR(I)=16 :: GOTO 1440
1260 IF PN(I)=6 THEN 1270 ELSE 1280
1270 PR(I)=32 :: GOTO 1440
1280 IF PN(I)=7 THEN 1290 ELSE 1300
1290 PR(I)=64 :: GOTO 1440
1300 IF PN(I)=8 THEN 1310 ELSE 1320
1310 PR(I)=128 :: GOTO 1440
1320 IF PN(I)=9 THEN 1330 ELSE 1340
1330 PR(I)=256 :: GOTO 1440
1340 IF PN(I)=10 THEN 1350 ELSE 1360
1350 PR(I)=512 :: GOTO 1440
1360 IF PN(I)=11 THEN 1370 ELSE 1380
1370 PR(I)=1024 :: GOTO 1440
1380 IF PN(I)=12 THEN 1390 ELSE 1400
1390 PR(I)=2048 :: GOTO 1440
1400 IF PN(I)=13 THEN 1410 ELSE 1420
1410 PR(I)=4096 :: GOTO 1440
1420 IF PN(I)=1 THEN 1430
1430 PR(I)=8192
1440 NEXT I
1450 PRANK=PR(1)+PR(2)+PR(3)+BRACKET
1460 STRFLUSH,THREEKIND,STRAIGHT,FLUSH,PAIR,BRACKET=0
1470 IF DN(1)=DN(2)THEN 1480 ELSE 1500
1480 IF DN(2)=DN(3)THEN 1490 ELSE 1500
1490 THREEKIND=1
1500 IF DS(1)=DS(2)THEN 1510 ELSE 1530
1510 IF DS(2)=DS(3)THEN 1520 ELSE 1530
1520 FLUSH=1
1530 IF DN(3)-DN(2)=1 THEN 1540 ELSE 1560
1540 IF DN(2)-DN(1)=1 THEN 1550 ELSE 1560
1550 STRAIGHT=1
1560 IF DN(3)=13 THEN 1570 ELSE 1600
1570 IF DN(2)=12 THEN 1580 ELSE 1600
1580 IF DN(1)=1 THEN 1590 ELSE 1600
1590 STRAIGHT=1
1600 IF DN(1)=DN(2)THEN 1620 ELSE 1610
1610 IF DN(2)=DN(3)THEN 1620 ELSE 1630
1620 PAIR=1
1630 IF FLUSH=1 AND STRAIGHT=1 THEN 1640 ELSE 1650
1640 STRFLUSH=1
1650 IF STRFLUSH=1 THEN 1660 ELSE 1670
1660 BRACKET=150000 :: GOTO 1750
1670 IF THREEKIND=1 THEN 1680 ELSE 1690
1680 BRACKET=120000 :: GOTO 1750
1690 IF STRAIGHT=1 THEN 1700 ELSE 1710
1700 BRACKET=90000 :: GOTO 1750
1710 IF FLUSH=1 THEN 1720 ELSE 1730
1720 BRACKET=60000 :: GOTO 1750
1730 IF PAIR=1 THEN 1740 ELSE 1750
1740 BRACKET=30000
1750 FOR I=1 TO 3
1760 IF DN(I)=2 THEN 1770 ELSE 1780
1770 DR(I)=2 :: GOTO 2020
1780 IF DN(I)=3 THEN 1790 ELSE 1800
1790 DR(I)=4 :: GOTO 2020
1800 IF DN(I)=4 THEN 1810 ELSE 1820
1810 DR(I)=8 :: GOTO 2020
1820 IF DN(I)=5 THEN 1830 ELSE 1840
1830 DR(I)=16 :: GOTO 2020
1840 IF DN(I)=6 THEN 1850 ELSE 1860
1850 DR(I)=32 :: GOTO 2020
1860 IF DN(I)=7 THEN 1870 ELSE 1880
1870 DR(I)=64 :: GOTO 2020
1880 IF DN(I)=8 THEN 1890 ELSE 1900
1890 DR(I)=128 :: GOTO 2020
1900 IF DN(I)=9 THEN 1910 ELSE 1920
1910 DR(I)=256 :: GOTO 2020
1920 IF DN(I)=10 THEN 1930 ELSE 1940
1930 DR(I)=512 :: GOTO 2020
1940 IF DN(I)=11 THEN 1950 ELSE 1960
1950 DR(I)=1024 :: GOTO 2020
1960 IF DN(I)=12 THEN 1970 ELSE 1980
1970 DR(I)=2048 :: GOTO 2020
1980 IF DN(I)=13 THEN 1990 ELSE 2000
1990 DR(I)=4096 :: GOTO 2020
2000 IF DN(I)=1 THEN 2010
2010 DR(I)=8192
2020 NEXT I
2030 DRANK=DR(1)+DR(2)+DR(3)+BRACKET
2040 PAIRPLUSPAY,ANTEPAY,PLAYPAY,TOTALPAY=0
2050 IF PRANK>150000 THEN 2060 ELSE 2070
2060 PAIRPLUSPAY=PAIRPLUS*41 :: GOTO 2180
2070 IF PRANK>120000 THEN 2080 ELSE 2090
2080 PAIRPLUSPAY=PAIRPLUS*31 :: GOTO 2180
2090 IF PRANK>90000 THEN 2100 ELSE 2110
2100 PAIRPLUSPAY=PAIRPLUS*7 :: GOTO 2180
2110 IF PRANK>60000 THEN 2120 ELSE 2130
2120 PAIRPLUSPAY=PAIRPLUS*4 :: GOTO 2180
2130 IF PRANK>30000 THEN 2140 ELSE 2150
2140 PAIRPLUSPAY=PAIRPLUS*2 :: GOTO 2180
2150 IF PRANK<30000 THEN 2160 ELSE 2180
2160 PAIRPLUSPAY=0
2170 REM   ****DEALER QUALIFIES*******
2180 IF DRANK>=2054 THEN 2210 ELSE 2390
2190 REM   ***DEAL Q, PLAYER WINS OR TIES****
2200 REM   ***WIN***
2210 IF DRANK>=PRANK THEN 2320 ELSE 2220
2220 IF PRANK>150000 THEN 2230 ELSE 2240
2230 ANTEPAY=ANTE*6 :: GOTO 2280
2240 IF PRANK>120000 THEN 2250 ELSE 2260
2250 ANTEPAY=ANTE*5 :: GOTO 2280
2260 IF PRANK>90000 THEN 2270 ELSE 2290
2270 ANTEPAY=ANTE*3 :: GOTO 2280
2280 CALL SAY("GOOD HAND") :: GOTO 2300
2290 ANTEPAY=ANTE*2
2300 PLAYPAY=PLAY*2 :: GOTO 2480
2310 REM   ***TIE**
2320 IF DRANK=PRANK THEN 2330 ELSE 2360
2330 ANTEPAY=ANTE
2340 PLAYPAY=PLAY :: GOTO 2480
2350 REM   ****DQ, PLAYER LOSES
2360 ANTEPAY=0
2370 PLAYPAY=0 :: GOTO 2480
2380 REM   ***DEALER DOES NOT QUALIFY
2390 IF PRANK>150000 THEN 2400 ELSE 2410
2400 ANTEPAY=ANTE*6 :: GOTO 2450
2410 IF PRANK>120000 THEN 2420 ELSE 2430
2420 ANTEPAY=ANTE*5 :: GOTO 2450
2430 IF PRANK>90000 THEN 2440 ELSE 2460
2440 ANTEPAY=ANTE*3 :: GOTO 2450
2450 CALL SAY("GOOD HAND") :: GOTO 2470
2460 ANTEPAY=ANTE*2
2470 PLAYPAY=PLAY
2480 IF PAIRPLUSPAY>PAIRPLUS THEN 2490 ELSE 2500
2490 DISPLAY AT(22,1)SIZE(8):"PP:WIN!" :: GOTO 2510
2500 DISPLAY AT(22,1)SIZE(8):"PP:LOSE"
2510 IF ANTEPAY>ANTE THEN 2520 ELSE 2530
2520 DISPLAY AT(22,9)SIZE(10):"ANTE:WIN!" :: GOTO 2570
2530 IF ANTEPAY=ANTE THEN 2540 ELSE 2550
2540 DISPLAY AT(22,9)SIZE(10):"ANTE:PUSH" :: GOTO 2570
2550 IF ANTEPAY<ANTE THEN 2560
2560 DISPLAY AT(22,9)SIZE(10):"ANTE:LOSE"
2570 IF PLAYPAY>PLAY THEN 2580 ELSE 2590
2580 DISPLAY AT(22,19)SIZE(10):"PLAY:WIN!" :: GOTO 2630
2590 IF PLAYPAY=PLAY THEN 2600 ELSE 2610
2600 DISPLAY AT(22,19)SIZE(10):"PLAY:PUSH" :: GOTO 2630
2610 IF PLAYPAY<PLAY THEN 2620
2620 DISPLAY AT(22,19)SIZE(10):"PLAY:LOSE"
2630 TOTALPAY=PAIRPLUSPAY+ANTEPAY+PLAYPAY
2640 BANKROLL=BANKROLL+TOTALPAY
2650 DISPLAY AT(21,1):"BANKROLL:" :: DISPLAY AT(21,12):BANKROLL
2660 IF BANKROLL>=(PAIRPLUS+(2*ANTE))THEN 2700
2670 DISPLAY AT(22,1)SIZE(27):"FUNDS TOO LOW" :: CALL SAY("I GUESS YOU ARE FINISHED")
2680 DISPLAY AT(23,1)SIZE(27):"(N)EW GAME OR (Q)UIT?" :: CALL DELSPRITE(ALL)
2690 CALL KEY(3,K,S) :: IF S<>1 THEN 2690 :: IF K=78 THEN 270 ELSE IF K=81 THEN 3040 ELSE 2690
2700 DISPLAY AT(23,1)SIZE(27):"(D)EAL OR (Q)UIT?"
2710 CALL KEY(3,K,S) :: IF S<>1 THEN 2710 :: IF K=68 THEN 310 ELSE IF K=81 THEN 3040 ELSE 2710
2720 SUB TITLE
2730 CALL HCHAR(1,1,120,768)
2740 DISPLAY AT(3,7)SIZE(5):"THREE" :: DISPLAY AT(5,12)SIZE(4):"CARD" :: DISPLAY AT(7,17)SIZE(5):"POKER" :: DISPLAY AT(18,14)SIZE(2):"BY"
2750 DISPLAY AT(20,10)SIZE(10):"SWITCH1995" :: DISPLAY AT(22,13)SIZE(4):"2022" :: DISPLAY AT(24,7)SIZE(15):"*PRESS ANY KEY*"
2760 R=10 :: FOR I=1 TO 3 :: FOR J=8+(I-1)*7 TO 11+(I-1)*7 :: CALL VCHAR(R,J,95,6) :: NEXT J
2770 CALL HCHAR(R-1,J-5,112) :: CALL HCHAR(R-1,J-4,113,4) :: CALL HCHAR(R-1,J,114) :: CALL VCHAR(R,J-5,115,6)
2780 CALL VCHAR(R,J,116,6) :: CALL HCHAR(R+6,J-5,117) :: CALL HCHAR(R+6,J-4,118,4) :: CALL HCHAR(R+6,J,119) :: NEXT I
2790 CALL HCHAR(10,8,65) :: CALL HCHAR(15,11,65) :: CALL HCHAR(10,15,75) :: CALL HCHAR(15,18,75) :: CALL HCHAR(10,22,81) :: CALL HCHAR(15,25,81)
2800 CALL SPRITE(#1,96,2,89,65) :: CALL SPRITE(#2,96,2,89,121) :: CALL SPRITE(#3,96,2,89,177)
2810 SUBEND
2820 SUB MENU(BANKROLL,PAIRPLUS,ANTE,PLAY)
2830 CALL HCHAR(1,2,120,30) :: CALL HCHAR(13,2,120,30) :: CALL HCHAR(24,2,120,30) :: CALL VCHAR(1,1,120,24) :: CALL VCHAR(1,32,120,24)
2840 DISPLAY AT(3,13):"PAIR  ANTE" :: DISPLAY AT(4,13):"PLUS  BONUS" :: DISPLAY AT(6,1):"STR FLUSH   40-1   5-1"
2850 DISPLAY AT(7,1):"3 OF A KIND 30-1   4-1" :: DISPLAY AT(8,1):"STRAIGHT     6-1   1-1" :: DISPLAY AT(9,1):"FLUSH        3-1   N/A"
2860 DISPLAY AT(10,1):"PAIR         1-1   N/A" :: CALL SPRITE(#1,96,2,(3*8)-7,(27*8)-7) :: CALL SPRITE(#2,104,9,(5*8)-7,(29*8)-7)
2870 CALL SPRITE(#3,100,2,(7*8)-7,(27*8)-7) :: CALL SPRITE(#4,108,9,(9*8)-7,(29*8)-7)
2880 DISPLAY AT(15,1):"BANKROLL (MIN500, MAX10000)" :: DISPLAY AT(18,1):"PAIR PLUS BET(10-100)" :: DISPLAY AT(21,1):"ANTE BET(10-100)"
2890 ACCEPT AT(16,1)SIZE(5)BEEP :BANKROLL
2900 IF BANKROLL<500 OR BANKROLL>10000 THEN 2890
2910 ACCEPT AT(19,1)SIZE(3)BEEP :PAIRPLUS
2920 IF PAIRPLUS<10 OR PAIRPLUS>100 THEN 2910
2930 ACCEPT AT(22,1)SIZE(3)BEEP :ANTE
2940 IF ANTE<10 OR ANTE>100 THEN 2930
2950 PLAY=ANTE
2960 SUBEND
2970 SUB DRAW
2980 CALL HCHAR(1,1,120,608)
2990 CALL HCHAR(20,1,122) :: CALL HCHAR(20,2,121,30) :: CALL HCHAR(20,32,123) :: CALL VCHAR(21,1,121,3) :: CALL VCHAR(21,32,121,3)
3000 CALL HCHAR(24,1,123) :: CALL HCHAR(24,2,121,30) :: CALL HCHAR(24,32,122)
3010 CALL HCHAR(9,14,136) :: CALL HCHAR(9,15,137) :: CALL HCHAR(9,16,138) :: CALL HCHAR(9,17,139) :: CALL HCHAR(9,18,137) :: CALL HCHAR(9,19,140)
3020 CALL HCHAR(19,14,141) :: CALL HCHAR(19,15,139) :: CALL HCHAR(19,16,138) :: CALL HCHAR(19,17,142) :: CALL HCHAR(19,18,137) :: CALL HCHAR(19,19,140)
3030 SUBEND
3040 END